unit UfrmKernel_Splash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, RzPanel, ComCtrls, RzLabel, GIFImg;

type
  TfrmKernel_Splash = class(TForm)
    pb: TProgressBar;
    RzPanel1: TRzPanel;
    RzPanel2: TRzPanel;
    imgsplash: TImage;
    RzLabel1: TRzLabel;
    RzPanel3: TRzPanel;
    imgtop: TImage;
    tmrSplash: TTimer;
    lblsistema: TRzLabel;
    lbledscsistema: TRzLabel;
    Image1: TImage;
    lblversao: TRzLabel;
    RzLabel2: TRzLabel;
    lblmodulo: TRzLabel;
    RzLabel3: TRzLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKernel_Splash: TfrmKernel_Splash;

implementation

uses UKernel_SysUtils;

{$R *.dfm}

procedure TfrmKernel_Splash.FormShow(Sender: TObject);
begin
  lblversao.Caption := Kernel_GetVersaoArq;
end;

end.
